﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class MovticketsFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As MovticketsBE
        Dim tmpMovtickets As MovticketsBE = New MovticketsBE()
        Try
            With tmpMovtickets
                .Descripcion = convertDTFromDb.ConvertString(dr.Item("Descripcion"))
                .Identificador = convertDTFromDb.ConvertLong(dr.Item("Identificador"))
                .IdTicket = convertDTFromDb.ConvertLong(dr.Item("IdTicket"))
                .Importe = convertDTFromDb.convertDouble(dr.Item("Importe"))
                .Litros = convertDTFromDb.convertDouble(dr.Item("Litros"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
                .TipoDeAditivo = convertDTFromDb.ConvertString(dr.Item("TipoDeAditivo"))
            End With
            Return tmpMovtickets
        Catch ex As Exception
            Throw
        Finally
            tmpMovtickets = Nothing
        End Try
    End Function
End Class
